home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
G-Games
/
(c)gf.d64
/
menu.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
2KB
|
85 lines
5 IFN>0THEN140
9 :
10 REM TORONTO PET USERS GROUP INC.
11 :
12 REM TO THE BEST OF OUR KNOWLEDGE
13 REM ALL SOFTWARE ON THIS DISK IS
14 REM IN THE PUBLIC DOMAIN
15 :
16 REM DISK PREPARED BY DAVID BRADLEY
17 :
20 REM MENU PROGRAM BY JOHN CROOKSHANK
21 :
22 REM MODIFIED BY DAVID BRADLEY
30 :
40 POKE53280,0:POKE53281,0
45 GOSUB3000
50 PRINT"[154]"TAB(12)"[204]OADING [205]ENU [198]ILE..."
55 CLOSE2:CLOSE15
60 PRINTTAB(15)"[208]LEASE [215]AIT"
70 OPEN15,8,15:OPEN2,8,2,"0:MENUFILE,S,R"
80 GOSUB2000
90 INPUT#2,NA$
100 IFLEN(NA$)<39THENNA$=" "+NA$
105 IFLEN(NA$)<40THENNA$=NA$+" ":GOTO100
110 INPUT#2,N:DIML$(N)
120 FORX=0TON
130 INPUT#2,L$(X):NEXT:CLOSE2:CLOSE15
131 LOAD"MENUML",8,1
140 PC=0:P=INT(N/10)
150 PRINT"[147][158] [198]ROM [212]HE [212]ORONTO [208]ET [213]SERS [199]ROUP ";
160 PRINT"";NA$
170 PRINT" [196]ISK [195]ONTENTS: "
175 IFPC>PTHENPC=0
180 PRINT" [208]AGE"PC+1" OF"P+1:PRINT:PRINT
190 PE=9:IFPE+(PC*10)>NTHENPE=N-(PC*10)-1
200 FORX=0TOPE
210 PRINTTAB(5)"[154][208]ROGRAM #"X"-[154] "L$(X+(PC*10))
220 NEXT
230 PRINT"[208]RESS 0 -"PE" TO [204]OAD [208]ROGRAM"
240 PRINT"[208]RESS [210][197][212][213][210][206] TO SEE [206]EXT [208]AGE"
250 PRINT"[158][208]RESS [198]7 TO [210]EAD [208]ROGRAM [196]ESCRIPTIONS"
255 PRINT"[208]RESS [209] TO [209][213][201][212][154]":POKE198,0:POKE679,0
260 GETA$:IFA$=""THEN260
265 IFA$="Q"THENCLOSE2:CLOSE15:END
270 IFA$=CHR$(13)THENPC=PC+1:GOTO150
280 IFA$="[136]"THEN350
290 IFA$<"0"ORA$>CHR$(PE+48)THEN260
300 A=VAL(A$)
305 IFA>PETHEN260
306 GOSUB 3000:FORDB=1TO3500:NEXT
307 POKE53281,6:POKE53280,14
310 PRINT"[147][144][154]"CHR$(142)"LOADING: "L$(A+(PC*10))
320 PRINT"LOAD"CHR$(34)L$(A+(PC*10))CHR$(34)",8"
330 PRINT"RUN"
340 POKE631,13:POKE632,154:POKE633,13:POKE198,3:NEW
350 L=0:P$=""
360 OPEN15,8,15:OPEN2,8,2,"0:DOCFILE,S,R":GOSUB2000
370 PRINT"[147][154]";
380 SYS823
390 CLOSE2:CLOSE15
400 IFPEEK(679)=88THEN510
480 PRINT"[197]ND OF [198]ILE - [208]RESS ANY KEY FOR [205]ENU";
495 POKE198,0:CLOSE2:CLOSE15
500 GETA$:IFA$=""THEN500
510 PC=0:GOTO150
2000 INPUT#15,E1,E$,E2,E3
2010 IFE1=0THENRETURN
2015 CLOSE2:CLOSE15
2020 PRINT"[147] [196]ISK [197]RROR! "
2030 PRINT""E1;"[157] ";E$;E2;"[157]";E3"[157] "
2040 PRINT"[208]LEASE CHECK YOUR [196]ISK AND [196]RIVE"
2045 PRINT"BEFORE TRYING TO [210][213][206] AGAIN.[154]"
2050 END
3000 PRINT"[147]":POKE53280,0:POKE53281,0
3010 PRINT" ***** ***** * * *****
3020 [153]" * * * * * *
3030 PRINT" * ***** * * * **
3040 [153]" * * * * * *
3050 PRINT" * * ***** *****
3060 [153]" ((null)HE (null)ORONTO (null)ET (null)SERS CHR$ROUP RIGHT$NC.)"
3070 [153]" 1912A ATNVENUE (null)OAD (null)UITE #1"
3080 [153]" (null)ORONTO, (null)NTARIO, LENANADA"
3090 [153]" (null)5(null) 4ATN1
3100 RETURN